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Figure 2 
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r{0)=r o ; 
0(0) =6 0 ; 
k=l ; 

while (k<N) , 

\|f(k)=u(k)*exp[u(k)*0(k-l) ] ; 

e(k)=y(k) -exp [u (k) *0(k-l ) ] +1 ; 

r (k)=r(k-l)+7o* t¥ 2 (k)-r(k-l) ] ; 

0(k) =0(k-l ) +Yo*VOO *e (k) /r (k) ; 

k++; 
end; 
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Figure 4 
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